How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act8/00092_quitbox1.ls

Text File | 1995-03-28 | 730 b | 30 lines

on mouseDown
  set castigate to the number of cast "quitbox2"
  set the castNum of sprite the clickOn to castigate
  startTimer()
  set tstep to 10
  sound stop 1
  sound stop 2
  puppetSound("Sound 6")
  repeat while the mouseDown or (the timer < 40)
    set ttime to the timer / tstep
    if ttime < 4 then
      set the castNum of sprite the clickOn to the number of cast ("quitbox" & ttime + 1)
      updateStage()
    end if
  end repeat
  startTimer()
  set ttime to 0
  repeat while ttime < 4
    set ttime to the timer / tstep
    if ttime < 4 then
      set the castNum of sprite the clickOn to the number of cast ("quitbox" & 4 - ttime)
      updateStage()
    end if
  end repeat
end

on mouseUp
  go(1, "submenu")
end